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module loopexS ( c, x, y, z, clock); 
input [1:0] x, y. z; 

input clock ; 

output [2:0] c; 

reg [2:0] c; 

reg[2:0]p; 

always begin ^^^^^ 3030 

foreverBegin : theloop -3010 




c <= X - p ; 



@(posedge clock) ; 




•3020 



P=y+z; 



@(posedge clock) ; 



end 
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module write4 ( w, x, clock); 

input [15:0] x; 
input clock ; 
output [31:0] w; 
reg[32:0]w; 
reg[i5:0]xl ; 
reg[15:0]x2; 

always begin ^ ^530 



xl<=x; 

@(posedge clock) ; ^^...^ 1530 



forever begin : writeloop 




1530 



x2 <= X ; 




w <= xl * x2 ; 



end 



end 
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module after 1 ( c, x, y, z, clock); 

input (1:0] x.y, z; 
input clock ; 
output [2:0] c; 
reg [2:0] c; 
reg [2:0] p; 

always begin 

©(poscdgc clock) ; 

forever begin 

c<=#24x.p; 

@(posedge clock) ; 

p=y+z: 

©(poscdge clock) ; 

end 

end 
endmodule 



entity after! is 
port( 

c ; out integer range 0 to 7; 
X. y, 2 ; in integer range 0 to 3; 
clock : in bit 

); 

end afterl ; 

architecture behavioral of afterl is begin 
process 

variable p : integer range 0 to 7; 

begin 

wait until clock*event and clock = T; 
loop 

c <= transport x - p after 24 ns; 

wait until clock'event and clock = T; 

p := y + z; 

wait until cIock*event and dock = M'; 

end loop; 

end process; 
end behavioral; 
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